#!/usr/bin/perl -w
@list = qw( fred betty barney dino wilma pebbles bamm bamm );
while () {
$num = <STDIN>;
print "$list[$num] \n";
}

